/* Copyright  (c) 2002 Graz University of Technology. All rights reserved.
 *
 * Redistribution and use in  source and binary forms, with or without 
 * modification, are permitted  provided that the following conditions are met:
 *
 * 1. Redistributions of  source code must retain the above copyright notice,
 *    this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in  binary form must reproduce the above copyright notice,
 *    this list of conditions and the following disclaimer in the documentation
 *    and/or other materials provided with the distribution.
 *  
 * 3. The end-user documentation included with the redistribution, if any, must
 *    include the following acknowledgment:
 * 
 *    "This product includes software developed by IAIK of Graz University of
 *     Technology."
 * 
 *    Alternately, this acknowledgment may appear in the software itself, if 
 *    and wherever such third-party acknowledgments normally appear.
 *  
 * 4. The names "Graz University of Technology" and "IAIK of Graz University of
 *    Technology" must not be used to endorse or promote products derived from 
 *    this software without prior written permission.
 *  
 * 5. Products derived from this software may not be called 
 *    "IAIK PKCS Wrapper", nor may "IAIK" appear in their name, without prior 
 *    written permission of Graz University of Technology.
 *  
 *  THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESSED OR IMPLIED
 *  WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 *  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 *  PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE LICENSOR BE
 *  LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
 *  OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 *  PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
 *  OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
 *  ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 *  OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 *  OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 *  POSSIBILITY  OF SUCH DAMAGE.
 */

package demo.pkcs.pkcs11;

import java.io.BufferedReader;
import java.io.FileInputStream;
import java.io.InputStream;
import java.io.InputStreamReader;
import java.io.PrintWriter;
import java.security.Security;
import java.util.Arrays;
import java.util.HashSet;

import iaik.asn1.ObjectID;
import iaik.asn1.structures.Name;
import iaik.pkcs.pkcs11.Mechanism;
import iaik.pkcs.pkcs11.MechanismInfo;
import iaik.pkcs.pkcs11.Module;
import iaik.pkcs.pkcs11.Session;
import iaik.pkcs.pkcs11.Token;
import iaik.pkcs.pkcs11.TokenInfo;
import iaik.pkcs.pkcs11.objects.RSAPrivateKey;
import iaik.pkcs.pkcs11.objects.X509PublicKeyCertificate;
import iaik.pkcs.pkcs12.CertificateBag;
import iaik.pkcs.pkcs12.KeyBag;
import iaik.pkcs.pkcs12.PKCS12;
import iaik.security.provider.IAIK;
import iaik.x509.X509Certificate;
import iaik.x509.extensions.KeyUsage;
import iaik.x509.extensions.SubjectKeyIdentifier;



/**
 * This demo program can be used to personalize a card. It downloads a private
 * RSA key and the corresponding certificate. The key and the certificate are
 * given as a file in PKCS#12 format. The usage flags of the key object are
 * taken from the key usage flags of the certificate.
 *
 * @author <a href="mailto:Karl.Scheibelhofer@iaik.at"> Karl Scheibelhofer </a>
 * @version 0.1
 * @invariants
 */
public class DownloadPrivateKey {

  static BufferedReader input_;

  static PrintWriter output_;

  static {
    try {
      //output_ = new PrintWriter(new FileWriter("SignAndVerify_output.txt"), true);
      output_ = new PrintWriter(System.out, true);
      input_ = new BufferedReader(new InputStreamReader(System.in));
    } catch (Throwable thr) {
      thr.printStackTrace();
      output_ = new PrintWriter(System.out, true);
      input_ = new BufferedReader(new InputStreamReader(System.in));
   }
  }

  public static void main(String[] args) {
    if (args.length != 3) {
      printUsage();
      System.exit(1);
    }

    try {

        Security.addProvider(new IAIK());

        Module pkcs11Module = Module.getInstance(args[0]);
        pkcs11Module.initialize(null);

        Token token = Util.selectToken(pkcs11Module, output_, input_);
        if (token == null) {
          output_.println("We have no token to proceed. Finished.");
          output_.flush();
          System.exit(0);
        }
        TokenInfo tokenInfo = token.getTokenInfo();

        output_.println("################################################################################");
        output_.println("Information of Token:");
        output_.println(tokenInfo);
        output_.println("################################################################################");

        output_.println("################################################################################");
        output_.println("Reading private key and certifiacte from: " + args[1]);
        InputStream dataInputStream = new FileInputStream(args[1]);
        PKCS12 pkcs12Object = new PKCS12(dataInputStream);
        char[] filePassword = args[2].toCharArray();
        pkcs12Object.decrypt(filePassword);
        KeyBag keyBag = pkcs12Object.getKeyBag();
        java.security.PrivateKey jcaPrivateKey = keyBag.getPrivateKey();

        if (!jcaPrivateKey.getAlgorithm().equals("RSA")) {
          output_.println("Private Key in the PKCS#12 file is not a RSA key.");
          System.exit(1);
        }

        java.security.interfaces.RSAPrivateKey jcaRsaPrivateKey =
            (java.security.interfaces.RSAPrivateKey) jcaPrivateKey;

        output_.println("got private key");

        CertificateBag[] certificateBags = pkcs12Object.getCertificateBags();
        X509Certificate[] certificateChain = CertificateBag.getCertificates(certificateBags);
        certificateChain = iaik.utils.Util.arrangeCertificateChain(certificateChain, false);

        X509Certificate userCertificate = certificateChain[0];
        String userCommonName = ((Name) userCertificate.getSubjectDN()).getRDN(ObjectID.commonName).toString();
        byte[] certificateFingerprint = userCertificate.getFingerprint("SHA-1");
        KeyUsage keyUsage = (KeyUsage) userCertificate.getExtension(KeyUsage.oid);
        SubjectKeyIdentifier subjectKeyIdentifier = (SubjectKeyIdentifier)
            userCertificate.getExtension(SubjectKeyIdentifier.oid);

        output_.println("got user certifiate");
        output_.println("################################################################################");

        Session session = Util.openAuthorizedSession(token, Token.SessionReadWriteBehavior.RW_SESSION, output_, input_);

        output_.println("################################################################################");
        output_.println("creating private key object on the card... ");
        output_.flush();

        // check out what attributes of the keys we may set using the mechanism info
        HashSet supportedMechanisms = new HashSet(Arrays.asList(token.getMechanismList()));

        MechanismInfo signatureMechanismInfo;
        if (supportedMechanisms.contains(Mechanism.RSA_PKCS)) {
          signatureMechanismInfo = token.getMechanismInfo(Mechanism.RSA_PKCS);
        } else if (supportedMechanisms.contains(Mechanism.RSA_X_509)) {
          signatureMechanismInfo = token.getMechanismInfo(Mechanism.RSA_X_509);
        } else if (supportedMechanisms.contains(Mechanism.RSA_9796)) {
          signatureMechanismInfo = token.getMechanismInfo(Mechanism.RSA_9796);
        } else if (supportedMechanisms.contains(Mechanism.RSA_PKCS_OAEP)) {
          signatureMechanismInfo = token.getMechanismInfo(Mechanism.RSA_PKCS_OAEP);
        } else {
          signatureMechanismInfo = null;
        }

        // create private key object template
        RSAPrivateKey pkcs11RsaPrivateKey = new RSAPrivateKey();

        pkcs11RsaPrivateKey.getSensitive().setBooleanValue(Boolean.TRUE);
        //pkcs11RsaPrivateKey.getExtractable().setBooleanValue(Boolean.FALSE);
        pkcs11RsaPrivateKey.getToken().setBooleanValue(Boolean.TRUE);
        pkcs11RsaPrivateKey.getPrivate().setBooleanValue(Boolean.TRUE);
        String keyLabel = userCommonName + "'s " + ((Name) userCertificate.getIssuerDN()).getRDN(ObjectID.organization);
        pkcs11RsaPrivateKey.getLabel().setCharArrayValue(keyLabel.toCharArray());

        byte[] newObjectID;
        if (subjectKeyIdentifier != null) {
          // we take the key identifier from the certificate
          newObjectID = subjectKeyIdentifier.get();
        } else {
          // then we simply take the fingerprint of the certificate
          newObjectID = certificateFingerprint;
        }

        pkcs11RsaPrivateKey.getId().setByteArrayValue(newObjectID);

        //pkcs11RsaPrivateKey.getStartDate().setDateValue(userCertificate.getNotBefore());
        //pkcs11RsaPrivateKey.getEndDate().setDateValue(userCertificate.getNotAfter());

        pkcs11RsaPrivateKey.getSubject().setByteArrayValue(((Name) userCertificate.getSubjectDN()).getEncoded());

        if (keyUsage != null) {
          // set usage flags acording to key usage flags of certificate
          int keyUsageFlags = keyUsage.get();


          // set the attributes in a way netscape does, this should work with most tokens
          if (signatureMechanismInfo != null) {
            pkcs11RsaPrivateKey.getDecrypt().setBooleanValue(
                new Boolean((((keyUsageFlags & KeyUsage.dataEncipherment) != 0)
                              || ((keyUsageFlags & KeyUsage.keyCertSign) != 0))
                             && signatureMechanismInfo.isDecrypt()));
            pkcs11RsaPrivateKey.getSign().setBooleanValue(
                new Boolean((((keyUsageFlags & KeyUsage.digitalSignature) != 0)
                              || ((keyUsageFlags & KeyUsage.keyCertSign) != 0)
                              || ((keyUsageFlags & KeyUsage.cRLSign) != 0)
                              || ((keyUsageFlags & KeyUsage.nonRepudiation) != 0))
                            && signatureMechanismInfo.isSign()));
            pkcs11RsaPrivateKey.getSignRecover().setBooleanValue(
                new Boolean((((keyUsageFlags & KeyUsage.digitalSignature) != 0)
                              || ((keyUsageFlags & KeyUsage.keyCertSign) != 0)
                              || ((keyUsageFlags & KeyUsage.cRLSign) != 0)
                              || ((keyUsageFlags & KeyUsage.nonRepudiation) != 0))
                            && signatureMechanismInfo.isSignRecover()));
            pkcs11RsaPrivateKey.getDerive().setBooleanValue(
                new Boolean(((keyUsageFlags & KeyUsage.keyAgreement) != 0)
                            && signatureMechanismInfo.isDerive()));
            pkcs11RsaPrivateKey.getUnwrap().setBooleanValue(
                new Boolean(((keyUsageFlags & KeyUsage.keyEncipherment) != 0)
                            && signatureMechanismInfo.isUnwrap()));
          } else {
            // if we have no mechanism information, we try to set the flags according to the key usage only
            pkcs11RsaPrivateKey.getDecrypt().setBooleanValue(
                new Boolean( ((keyUsageFlags & KeyUsage.dataEncipherment) != 0)
                             || ((keyUsageFlags & KeyUsage.keyCertSign) != 0)));
            pkcs11RsaPrivateKey.getSign().setBooleanValue(
                new Boolean( ((keyUsageFlags & KeyUsage.digitalSignature) != 0)
                             || ((keyUsageFlags & KeyUsage.keyCertSign) != 0)
                             || ((keyUsageFlags & KeyUsage.cRLSign) != 0)
                             || ((keyUsageFlags & KeyUsage.nonRepudiation) != 0)));
            pkcs11RsaPrivateKey.getSignRecover().setBooleanValue(
                new Boolean( ((keyUsageFlags & KeyUsage.digitalSignature) != 0)
                             || ((keyUsageFlags & KeyUsage.keyCertSign) != 0)
                             || ((keyUsageFlags & KeyUsage.cRLSign) != 0)
                             || ((keyUsageFlags & KeyUsage.nonRepudiation) != 0)));
            pkcs11RsaPrivateKey.getDerive().setBooleanValue(
                new Boolean((keyUsageFlags & KeyUsage.keyAgreement) != 0));
            pkcs11RsaPrivateKey.getUnwrap().setBooleanValue(
                new Boolean((keyUsageFlags & KeyUsage.keyEncipherment) != 0));
          }
        } else {
          // if there is no keyusage extension in the certificate, try to set all flags according to the mechanism info
          if (signatureMechanismInfo != null) {
            pkcs11RsaPrivateKey.getSign().setBooleanValue(new Boolean(signatureMechanismInfo.isSign()));
            pkcs11RsaPrivateKey.getSignRecover().setBooleanValue(new Boolean(signatureMechanismInfo.isSignRecover()));
            pkcs11RsaPrivateKey.getDecrypt().setBooleanValue(new Boolean(signatureMechanismInfo.isDecrypt()));
            pkcs11RsaPrivateKey.getDerive().setBooleanValue(new Boolean(signatureMechanismInfo.isDerive()));
            pkcs11RsaPrivateKey.getUnwrap().setBooleanValue(new Boolean(signatureMechanismInfo.isUnwrap()));
          } else {
            // if we have neither mechanism info nor key usage we just try all
            pkcs11RsaPrivateKey.getSign().setBooleanValue(Boolean.TRUE);
            pkcs11RsaPrivateKey.getSignRecover().setBooleanValue(Boolean.TRUE);
            pkcs11RsaPrivateKey.getDecrypt().setBooleanValue(Boolean.TRUE);
            pkcs11RsaPrivateKey.getDerive().setBooleanValue(Boolean.TRUE);
            pkcs11RsaPrivateKey.getUnwrap().setBooleanValue(Boolean.TRUE);
          }
        }

        pkcs11RsaPrivateKey.getModulus().setByteArrayValue(
            iaik.pkcs.pkcs11.Util.unsignedBigIntergerToByteArray(jcaRsaPrivateKey.getModulus()));
        pkcs11RsaPrivateKey.getPrivateExponent().setByteArrayValue(
            iaik.pkcs.pkcs11.Util.unsignedBigIntergerToByteArray(jcaRsaPrivateKey.getPrivateExponent()));
        pkcs11RsaPrivateKey.getPublicExponent().setByteArrayValue(
            iaik.pkcs.pkcs11.Util.unsignedBigIntergerToByteArray(
                ((java.security.interfaces.RSAPublicKey) userCertificate.getPublicKey()).getPublicExponent()));

        if (jcaRsaPrivateKey instanceof java.security.interfaces.RSAPrivateCrtKey) {
          // if we have the CRT field, we write it to the card
          // e.g. gemsafe seems to need it
          java.security.interfaces.RSAPrivateCrtKey crtKey =
              (java.security.interfaces.RSAPrivateCrtKey)jcaRsaPrivateKey;
          pkcs11RsaPrivateKey.getPrime1().setByteArrayValue(
              iaik.pkcs.pkcs11.Util.unsignedBigIntergerToByteArray(crtKey.getPrimeP()));
          pkcs11RsaPrivateKey.getPrime2().setByteArrayValue(
              iaik.pkcs.pkcs11.Util.unsignedBigIntergerToByteArray(crtKey.getPrimeQ()));
          pkcs11RsaPrivateKey.getExponent1().setByteArrayValue(
              iaik.pkcs.pkcs11.Util.unsignedBigIntergerToByteArray(crtKey.getPrimeExponentP()));
          pkcs11RsaPrivateKey.getExponent2().setByteArrayValue(
              iaik.pkcs.pkcs11.Util.unsignedBigIntergerToByteArray(crtKey.getPrimeExponentQ()));
          pkcs11RsaPrivateKey.getCoefficient().setByteArrayValue(
              iaik.pkcs.pkcs11.Util.unsignedBigIntergerToByteArray(crtKey.getCrtCoefficient()));
        }

        output_.println(pkcs11RsaPrivateKey);
        session.createObject(pkcs11RsaPrivateKey);

        output_.println("################################################################################");


        output_.println("################################################################################");
        output_.println("creating certificate object on the card... ");
        output_.flush();

        // create certificate object template
        X509PublicKeyCertificate pkcs11X509PublicKeyCertificate = new X509PublicKeyCertificate();

        pkcs11X509PublicKeyCertificate.getToken().setBooleanValue(Boolean.TRUE);
        pkcs11X509PublicKeyCertificate.getPrivate().setBooleanValue(Boolean.FALSE);
        pkcs11X509PublicKeyCertificate.getLabel().setCharArrayValue(keyLabel.toCharArray());
        pkcs11X509PublicKeyCertificate.getSubject().setByteArrayValue(
            ((Name) userCertificate.getSubjectDN()).getEncoded());
        pkcs11X509PublicKeyCertificate.getId().setByteArrayValue(newObjectID);
        pkcs11X509PublicKeyCertificate.getIssuer().setByteArrayValue(
            ((Name) userCertificate.getIssuerDN()).getEncoded());
        // serial number should be an DER encoded ASN.1 integer
/*
        INTEGER asn1Integer = new INTEGER(userCertificate.getSerialNumber());
        ByteArrayOutputStream buffer = new ByteArrayOutputStream();
        DerCoder.encodeTo(asn1Integer, buffer);
        pkcs11X509PublicKeyCertificate.getSerialNumber().setByteArrayValue(buffer.toByteArray());
 */
        // Netscape deviates from the standard here, for use with Netscape rather use
        pkcs11X509PublicKeyCertificate.getSerialNumber().setByteArrayValue(
            userCertificate.getSerialNumber().toByteArray());
        pkcs11X509PublicKeyCertificate.getValue().setByteArrayValue(userCertificate.getEncoded());

        output_.println(pkcs11X509PublicKeyCertificate);
        session.createObject(pkcs11X509PublicKeyCertificate);

        output_.println("################################################################################");

        session.closeSession();
        pkcs11Module.finalize(null);

    } catch (Throwable thr) {
      thr.printStackTrace();
    }
  }

  public static void printUsage() {
    output_.println("Usage: DownloadPrivateKey <PKCS#11 module> <PKCS#12 encoded private key and certificate> <PKCS#12 password>");
    output_.println(" e.g.: DownloadPrivateKey pk2priv.dll privatekeyAndCert.p12 filepassword");
    output_.println("The given DLL must be in the search path of the system.");
  }

}